home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconed1a / viewicon.frm < prev    next >
Text File  |  1999-09-24  |  41KB  |  1,177 lines
  1. VERSION 5.00
  2. Begin VB.Form Viewer 
  3.    Caption         =   "IconWorks Viewer"
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   1455
  6.    ClientTop       =   1875
  7.    ClientWidth     =   5895
  8.    ClipControls    =   0   'False
  9.    BeginProperty Font 
  10.       Name            =   "Courier"
  11.       Size            =   9.75
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    FontTransparent =   0   'False
  19.    ForeColor       =   &H00000000&
  20.    Icon            =   "VIEWICON.frx":0000
  21.    LinkMode        =   1  'Source
  22.    LinkTopic       =   "Form1"
  23.    PaletteMode     =   1  'UseZOrder
  24.    ScaleHeight     =   283
  25.    ScaleMode       =   3  'Pixel
  26.    ScaleWidth      =   393
  27.    Tag             =   "IconWrks Viewer"
  28.    Begin VB.PictureBox Pic_SelectedIconLabel 
  29.       BackColor       =   &H00FFFFFF&
  30.       BorderStyle     =   0  'None
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   13.5
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       FontTransparent =   0   'False
  41.       ForeColor       =   &H000000FF&
  42.       Height          =   525
  43.       Left            =   15
  44.       ScaleHeight     =   35
  45.       ScaleMode       =   3  'Pixel
  46.       ScaleWidth      =   236
  47.       TabIndex        =   16
  48.       Top             =   0
  49.       Width           =   3540
  50.       Begin VB.PictureBox Pic_IconsBitmap 
  51.          AutoRedraw      =   -1  'True
  52.          BackColor       =   &H0000FF00&
  53.          BorderStyle     =   0  'None
  54.          BeginProperty Font 
  55.             Name            =   "System"
  56.             Size            =   9.75
  57.             Charset         =   0
  58.             Weight          =   700
  59.             Underline       =   0   'False
  60.             Italic          =   0   'False
  61.             Strikethrough   =   0   'False
  62.          EndProperty
  63.          Height          =   510
  64.          Left            =   0
  65.          ScaleHeight     =   34
  66.          ScaleMode       =   3  'Pixel
  67.          ScaleWidth      =   34
  68.          TabIndex        =   0
  69.          Top             =   0
  70.          Visible         =   0   'False
  71.          Width           =   510
  72.       End
  73.       Begin VB.PictureBox Pic_SelectedIcon 
  74.          BackColor       =   &H000000FF&
  75.          BorderStyle     =   0  'None
  76.          BeginProperty Font 
  77.             Name            =   "System"
  78.             Size            =   9.75
  79.             Charset         =   0
  80.             Weight          =   700
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   480
  86.          Left            =   3045
  87.          ScaleHeight     =   32
  88.          ScaleMode       =   3  'Pixel
  89.          ScaleWidth      =   32
  90.          TabIndex        =   9
  91.          Top             =   30
  92.          Width           =   480
  93.       End
  94.    End
  95.    Begin VB.PictureBox Pic_VerticalLine 
  96.       BackColor       =   &H00000000&
  97.       BorderStyle     =   0  'None
  98.       Enabled         =   0   'False
  99.       BeginProperty Font 
  100.          Name            =   "System"
  101.          Size            =   9.75
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   4245
  109.       Left            =   3555
  110.       ScaleHeight     =   4245
  111.       ScaleWidth      =   15
  112.       TabIndex        =   10
  113.       Top             =   0
  114.       Width           =   15
  115.    End
  116.    Begin VB.PictureBox Pic_AllIcons 
  117.       BackColor       =   &H00FFFFFF&
  118.       BorderStyle     =   0  'None
  119.       BeginProperty Font 
  120.          Name            =   "System"
  121.          Size            =   9.75
  122.          Charset         =   0
  123.          Weight          =   700
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   4245
  129.       Left            =   3570
  130.       MousePointer    =   10  'Up Arrow
  131.       ScaleHeight     =   283
  132.       ScaleMode       =   3  'Pixel
  133.       ScaleWidth      =   138
  134.       TabIndex        =   11
  135.       TabStop         =   0   'False
  136.       Top             =   0
  137.       Visible         =   0   'False
  138.       Width           =   2070
  139.    End
  140.    Begin VB.VScrollBar Scrl_AllIcons 
  141.       Height          =   4275
  142.       Left            =   5640
  143.       TabIndex        =   12
  144.       Top             =   -15
  145.       Visible         =   0   'False
  146.       Width           =   270
  147.    End
  148.    Begin VB.TextBox Txt_FileName 
  149.       BeginProperty Font 
  150.          Name            =   "MS Sans Serif"
  151.          Size            =   8.25
  152.          Charset         =   0
  153.          Weight          =   700
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       Height          =   330
  159.       Left            =   795
  160.       TabIndex        =   1
  161.       Top             =   525
  162.       Width           =   2775
  163.    End
  164.    Begin VB.PictureBox Pic_IconCount 
  165.       BackColor       =   &H00FF0000&
  166.       BorderStyle     =   0  'None
  167.       BeginProperty Font 
  168.          Name            =   "MS Sans Serif"
  169.          Size            =   8.25
  170.          Charset         =   0
  171.          Weight          =   400
  172.          Underline       =   0   'False
  173.          Italic          =   0   'False
  174.          Strikethrough   =   0   'False
  175.       EndProperty
  176.       FontTransparent =   0   'False
  177.       ForeColor       =   &H00FFFFFF&
  178.       Height          =   210
  179.       Left            =   1365
  180.       ScaleHeight     =   210
  181.       ScaleWidth      =   420
  182.       TabIndex        =   13
  183.       Top             =   1335
  184.       Visible         =   0   'False
  185.       Width           =   420
  186.    End
  187.    Begin VB.DirListBox Dir_DirectoryList 
  188.       BeginProperty Font 
  189.          Name            =   "MS Sans Serif"
  190.          Size            =   8.25
  191.          Charset         =   0
  192.          Weight          =   700
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       Height          =   2055
  198.       Left            =   -15
  199.       TabIndex        =   3
  200.       Top             =   1560
  201.       Width           =   1800
  202.    End
  203.    Begin VB.FileListBox File_FileList 
  204.       BeginProperty Font 
  205.          Name            =   "MS Sans Serif"
  206.          Size            =   8.25
  207.          Charset         =   0
  208.          Weight          =   700
  209.          Underline       =   0   'False
  210.          Italic          =   0   'False
  211.          Strikethrough   =   0   'False
  212.       EndProperty
  213.       Height          =   2040
  214.       Left            =   1770
  215.       Pattern         =   "*.ico"
  216.       TabIndex        =   5
  217.       Top             =   1560
  218.       Width           =   1800
  219.    End
  220.    Begin VB.DriveListBox Drv_DriveList 
  221.       BeginProperty Font 
  222.          Name            =   "MS Sans Serif"
  223.          Size            =   8.25
  224.          Charset         =   0
  225.          Weight          =   700
  226.          Underline       =   0   'False
  227.          Italic          =   0   'False
  228.          Strikethrough   =   0   'False
  229.       EndProperty
  230.       Height          =   1530
  231.       Left            =   -15
  232.       TabIndex        =   7
  233.       Top             =   3945
  234.       Width           =   3585
  235.    End
  236.    Begin VB.Line line_HorizontalLine 
  237.       X1              =   0
  238.       X2              =   235
  239.       Y1              =   35
  240.       Y2              =   35
  241.    End
  242.    Begin VB.Label Lbl_File 
  243.       Caption         =   "Fi&le:"
  244.       BeginProperty Font 
  245.          Name            =   "MS Sans Serif"
  246.          Size            =   8.25
  247.          Charset         =   0